home *** CD-ROM | disk | FTP | other *** search
/ Basic Instinct 2 Press Kit / Basic Instinct 2 Press Kit.iso / pc / main.dxr / Internal_50_SlideShowForward.ls < prev    next >
Encoding:
Text File  |  2006-03-15  |  3.7 KB  |  95 lines
  1. property pRectSprite, pPhotoSprite, pPushPinSprite, pFlashSprite, pSavedSprite, pLogoSprite, pSavedGraphic, pUnSavedGraphic, pForwardGraphic, pForwardGraphicHilited
  2. global gMaster, gSound, gTracker
  3.  
  4. on beginSprite me
  5.   pLogoSprite = 3
  6.   pRectSprite = 28
  7.   pPhotoSprite = 29
  8.   pPushPinSprite = 30
  9.   pFlashSprite = 31
  10.   pSavedSprite = 33
  11.   pSavedGraphic = member(gMaster.pSlideShowSettings.savedbutton, "assets")
  12.   pUnSavedGraphic = member(gMaster.pSlideShowSettings.savebutton, "assets")
  13.   pForwardGraphic = member("savedSlideshow", "assets")
  14.   pForwardGraphicHilited = member("savedSlideshow", "assets")
  15. end
  16.  
  17. on mChangeSlideForward me
  18.   gSound.mPlayButtonClick()
  19.   if (gMaster.pCount + 1) > gMaster.pPhotoList.count then
  20.     gMaster.pCount = 1
  21.     gMaster.pActivePhotoObject = gMaster.pPhotoList[gMaster.pCount]
  22.   else
  23.     gMaster.pCount = gMaster.pCount + 1
  24.     gMaster.pActivePhotoObject = gMaster.pPhotoList[gMaster.pCount]
  25.   end if
  26.   sprite(pPhotoSprite).member = member(gMaster.pActivePhotoObject.pSmallName, gMaster.pMediumCastLib)
  27.   gTracker.mAddPhotoView(gMaster.pActivePhotoObject.pSmallName)
  28.   vTotal = gMaster.pPhotoList.count
  29.   vNum = gMaster.pActivePhotoObject.pPhotoNumber
  30.   member("OneOf").text = vNum & " of " & vTotal
  31.   if gMaster.pSlideShowSettings.xyeffect = "TRUE" then
  32.     sprite(pPhotoSprite).loc = gMaster.pActivePhotoObject.pXYSlide
  33.     vMemberWidth = member(gMaster.pActivePhotoObject.pSmallName, gMaster.pMediumCastLib).width
  34.     vMemberHeight = member(gMaster.pActivePhotoObject.pSmallName, gMaster.pMediumCastLib).height
  35.     vWidth = vMemberWidth * float("." & gMaster.pSlideShowSettings.percentage)
  36.     vHeight = vMemberHeight * float("." & gMaster.pSlideShowSettings.percentage)
  37.     if gMaster.pSlideShowSettings.percentage = 100 then
  38.       sprite(pPhotoSprite).width = vMemberWidth
  39.       sprite(pPhotoSprite).height = vMemberHeight
  40.     else
  41.       sprite(pPhotoSprite).width = vWidth
  42.       sprite(pPhotoSprite).height = vHeight
  43.     end if
  44.     updateStage()
  45.   end if
  46.   if gMaster.pSlideShowSettings.blendeffect = "TRUE" then
  47.     if gMaster.pActivePhotoObject.pSelected = "no" then
  48.       sprite(pPhotoSprite).blend = 100
  49.     else
  50.       sprite(pPhotoSprite).blend = gMaster.pSlideShowSettings.blendpercent
  51.     end if
  52.   end if
  53.   if gMaster.pSlideShowSettings.rectangles = "TRUE" then
  54.     if gMaster.pActivePhotoObject.pSelected = "no" then
  55.       sprite(pRectSprite).rect = rect(-2000, -2000, -1999, 1999)
  56.     else
  57.       vLeft = sprite(pPhotoSprite).left - 2
  58.       vTop = sprite(pPhotoSprite).top - 2
  59.       vRight = sprite(pPhotoSprite).right + 2
  60.       vBottom = sprite(pPhotoSprite).bottom + 2
  61.       sprite(pRectSprite).rect = rect(vLeft, vTop, vRight, vBottom)
  62.     end if
  63.   end if
  64.   if gMaster.pSlideShowSettings.pushpin = "TRUE" then
  65.     if gMaster.pActivePhotoObject.pSelected = "no" then
  66.       sprite(pPushPinSprite).loc = point(-2000, -2000)
  67.     else
  68.       vLeft = sprite(pPhotoSprite).left + gMaster.pSlideShowSettings.pinoffset[1]
  69.       vTop = sprite(pPhotoSprite).top + gMaster.pSlideShowSettings.pinoffset[2]
  70.       sprite(pPushPinSprite).loc = point(vLeft, vTop)
  71.     end if
  72.   end if
  73.   sendAllSprites(#mSetUpGraphicsDouble, "slideshow", gMaster.pCount)
  74.   if gMaster.pSlideShowSettings.xyflasheffect = "TRUE" then
  75.     sprite(pFlashSprite).loc = gMaster.pActivePhotoObject.pXYFlash
  76.   else
  77.     nothing()
  78.   end if
  79.   if gMaster.pSlideShowSettings.titlelogoeffect = "TRUE" then
  80.     sprite(pLogoSprite).member = member(gMaster.pActivePhotoObject.pTitleSlide)
  81.   else
  82.     nothing()
  83.   end if
  84.   vNewname = gMaster.pActivePhotoObject.pFlashLabel
  85.   if gMaster.pLanguageMode = "english" then
  86.     vNewname = vNewname & "e"
  87.   else
  88.     vNewname = vNewname & "s"
  89.   end if
  90.   sprite(pFlashSprite).goToFrame(vNewname)
  91. end
  92.  
  93. on exitFrame me
  94. end
  95.